﻿Public Class Output
    Private Shared _textbox As New TextBox()

    Public Shared Sub setTextBox(txt As TextBox)
        _textbox = txt
    End Sub

    Public Shared Sub Print(txt As String)        
        '_textbox.AppendText(DateTime.Now.ToString("dd/MM/yyyy HH:mm") & ": ")
        _textbox.AppendText(txt)
        _textbox.AppendText(Environment.NewLine)
    End Sub

    Public Shared Sub Clear()
        _textbox.Clear()
    End Sub

End Class
